home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 February / EnigmA AMIGA RUN 15 (1997)(G.R. Edizioni)(IT)[!][issue 1997-02][PLANET CD V].iso / progs / editor / amis / install < prev    next >
Text File  |  1996-12-30  |  4KB  |  196 lines
  1.  
  2. (welcome)
  3.  
  4. (set copyprefs 0)
  5.  
  6. (set dest2 (tackon (askdir  (prompt "Select the location to install the AMIS directory")
  7.               (default @default-dest)
  8.                       (help "Choose a destination partition or directory " 
  9.                             "to contain AMIS.  The install program will "
  10.                             "create a directory called 'AMIS' in the "
  11.                             "location you choose and copy the AMIS files "
  12.                             "to it."
  13.                       )
  14.                    ) "AMIS")
  15. )
  16.  
  17. (set @default-dest dest2)
  18.  
  19. (makedir dest2 (infos))
  20.  
  21. (copyfiles
  22.   (prompt "Copying...\n")
  23.   (source "")
  24.   (choices "AMIS" "AMIS.guide" "AMIS_Startup.rexx")
  25.   (dest dest2)
  26.   (infos)
  27.   (files)
  28.   (confirm)
  29.   (help @copyfiles-help)
  30. )
  31.  
  32. (complete 30)
  33.  
  34. (makedir (tackon dest2 "Scripts"))
  35.  
  36. (copyfiles
  37.   (prompt "Copying...\n")
  38.   (source "Scripts/")
  39.   (dest (tackon dest2 "Scripts"))
  40.   (infos)
  41.   (files)
  42.   (all)
  43.   (help @copyfiles-help)
  44. )
  45.  
  46. (complete 40)
  47.  
  48. (makedir (tackon dest2 "Viewers"))
  49.  
  50. (copyfiles
  51.   (prompt "Copying...\n")
  52.   (source "Viewers/")
  53.   (dest (tackon dest2 "Viewers"))
  54.   (infos)
  55.   (files)
  56.   (all)
  57.   (confirm)
  58.   (help @copyfiles-help)
  59. )
  60.  
  61. (makedir (tackon dest2 "Viewers/Sources"))
  62.  
  63. (copyfiles
  64.   (prompt "Copying...\n")
  65.   (source "Viewers/Sources/")
  66.   (dest (tackon dest2 "Viewers/Sources"))
  67.   (infos)
  68.   (files)
  69.   (all)
  70.   (help @copyfiles-help)
  71. )
  72.  
  73. (complete 50)
  74.  
  75. (makedir "ENVARC:AMIS")
  76.  
  77. (if (= (exists ("ENVARC:AMIS/AMIS.prefs")) 1)
  78.   (
  79.   (if (askbool
  80.         (prompt "\nDo you want to overwrite the old AMIS\n"
  81.                 "preferences ?\n\n"
  82.             "(This is needed for new added functions in\n"
  83.             "AMIS. However, old versions of AMIS won't\n"
  84.             "work properly with the new preference file.)")
  85.         (help "")
  86.     )
  87.     (set copyprefs 1)
  88.   )
  89.   )
  90.   (set copyprefs 1)
  91. )
  92.  
  93. (if (= copyprefs 1)
  94.   (
  95. (copyfiles
  96.   (prompt "Copying preferences...\n")
  97.   (source "ENV/")
  98.   (choices "AMIS.prefs" "def_text.info")
  99.   (dest "ENVARC:AMIS")
  100.   (files)
  101.   (help @copyfiles-help)
  102. )
  103.  
  104. (makedir "ENV:AMIS")
  105.  
  106. (copyfiles
  107.   (prompt "Copying preferences...\n")
  108.   (source "ENV/")
  109.   (choices "AMIS.prefs" "def_text.info")
  110.   (dest "ENV:AMIS")
  111.   (files)
  112.   (help @copyfiles-help)
  113. )
  114. )
  115. )
  116.  
  117. (complete 60)
  118.  
  119. (if (askbool
  120.         (prompt "\nWould you like to install the\n"
  121.                 "(GoldED compatible) findfunctions ?")
  122.         (help "")
  123.     )
  124.     ((makedir (tackon dest2 "Findfunctions") (infos))
  125.     (copyfiles
  126.       (prompt "Select the findfunctions you want\nto install")
  127.       (source "Findfunctions/")
  128.       (dest (tackon dest2 "Findfunctions"))
  129.       (all)
  130.       (files)
  131.       (confirm)
  132.       (help @copyfiles-help)
  133.     )
  134.     )
  135. )
  136.  
  137. (complete 70)
  138.  
  139. (copylib
  140.     (prompt "Copying amis.library...")
  141.     (help @copylib-help)
  142.     (source "Libs/amis.library")
  143.     (dest "Libs:")
  144.     (confirm)
  145. )
  146.  
  147. (complete 80)
  148.  
  149. (set cats (askoptions
  150.     (prompt "Which catalog files do\nyou want to install ?")
  151.     (choices "Nederlands")
  152.     (help "Select the catalog files you want to copy.")
  153.     (default 0))
  154. )
  155.  
  156. (if (AND cats 1)
  157.     (
  158.         (makedir "LOCALE:Catalogs/Nederlands")
  159.         (copyfiles
  160.             (prompt "Copying AMIS.catalog (Nederlands)...")
  161.             (source "Catalogs/Nederlands/AMIS.catalog")
  162.             (dest "LOCALE:Catalogs/Nederlands")
  163.             (help @copyfiles-help)
  164.         )
  165.     )
  166. )
  167.  
  168. (complete 90)
  169.  
  170. (if (<> (exists (tackon dest2 "AMIS_KeyFile")) 1)
  171. (if (askbool
  172.     (prompt "\nDo you have a keyfile ?")
  173.     (help ""))
  174.     (
  175.         (set keyfile (askfile
  176.             (prompt "Please select your keyfile.")
  177.             (default "")
  178.             (help   "Please select your keyfile.")))
  179.         (if (= 84 (getsize keyfile))
  180.             (if (<> (expandpath (pathonly keyfile)) (expandpath dest2))
  181.                 (copyfiles
  182.                     (prompt "Copying your keyfile...")
  183.                     (source keyfile)
  184.                     (dest dest2)
  185.                     (newname "AMIS_KeyFile"))
  186.             )
  187.             (message "No keyfile selected!\n")
  188.         )
  189.     )
  190. )
  191. )
  192.  
  193. (complete 100)
  194. (exit)
  195.  
  196.